home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 011 / sims.arc / SECURDEM.SRC < prev    next >
Text File  |  1987-04-07  |  2KB  |  75 lines
  1. ' Security Demonstration Menu  Version 1.00
  2. ' SIMS (c) David Thomas Stewart 1984-1987
  3. ' Distributed by Synergy Development - THIS PROGRAM IS PUBLIC DOMAIN
  4.  
  5. screen(n)
  6.  
  7. normal
  8. foreground(white+)
  9. background(red)
  10. setdate
  11. settime
  12.  
  13. date(2,9)
  14. time(65,9)
  15. pass(25,20)
  16.  
  17. foreground(white+)
  18. background(blue)
  19. setpass
  20.  
  21. normal
  22. foreground(green)
  23. setattr
  24.  
  25. box(0,0)-(79,24),"║"
  26. fill(1,0),"═",78
  27. fill(1,24),"═",78
  28. fill(1,8),"─",78
  29. fill(1,10),"─",78
  30. .(0,0)"╔"
  31. .(0,24)"╚"
  32. .(79,0)"╗"
  33. .(79,24)"╝"
  34. .(0,8)"╟"
  35. .(79,8)"╢"
  36. .(0,10)"╟"
  37. .(79,10)"╢"
  38.  
  39. foreground(white+)
  40. background(blue)
  41. setattr
  42. .(28,9)" Security Demo Version 1.00 "
  43.  
  44. normal
  45. foreground(yellow)
  46. setattr
  47. .(3,2)"█████▒  ████▒  ████▒  █▒  █▒  █████▒   ███▒     ████▒  ███████▒  █████▒"
  48. .(3,3)"█▒      █▒     █▒     █▒  █▒  █▒  █▒   █▒ █▒    █▒     █▒ █▒ █▒  █▒  █▒"
  49. .(3,4)"█████▒  ████▒  █▒     █▒  █▒  █████▒   █▒  █▒   ████▒  █▒ █▒ █▒  █▒  █▒"
  50. .(3,5)"    █▒  █▒     █▒     █▒  █▒  █▒  ██▒  █▒   █▒  █▒     █▒ █▒ █▒  █▒  █▒"
  51. .(3,6)"█████▒  ████▒  ████▒  █████▒  █▒   █▒  ██████▒  ████▒  █▒ █▒ █▒  █████▒"
  52.  
  53. option start
  54. option(F1,11,13)" F1 - Enter SPECIAL Menu ","MENU SPECIAL",pass="1984"
  55. option(F2,44,13)" F2 - Return to DEMO Menu ","MENU DEMO"
  56. option end
  57.  
  58. border(grey)
  59.  
  60. normal
  61. foreground(cyan)
  62. setattr
  63.  
  64. proc(F1,select)
  65. fill(1,17)," ",78
  66. .(18,17)"This is option F1 - Enter SPECIAL Menu (Password is 1984)"
  67. proc end
  68.  
  69. proc(F2,select)
  70. fill(1,17)," ",78
  71. .(18,17)"This is option F2 - Return to DEMO Menu"
  72. proc end
  73.  
  74. end
  75.